#cs ----------------------------------------------------------------------------
	
	$Author: bjoern.kaiser $
	$LastChangedDate: 2008-05-05 07:18:45 +0000 (Mon, 05 May 2008) $
	
	Script Function:
	Work around known disk imaging problems
	(like problems with cpu drivers, etc.)
	
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include-once

Func _workaround_CpuDrivers($strCpuVendor)
	Local $intRc
	
	Select
		Case $strCpuVendor = "AMD"
;~ 			disable intelppm service/driver (start value 4)
			$intRc = RegWrite("HKLM\TARGET_SYSTEM\ControlSet001\Services\intelppm", "Start", "REG_DWORD", 4)
			If $intRc Then
				_log("D", "Disabled intelppm driver")
			Else
				_log("F", "Error while disabling intelppm driver")
			EndIf
			
		Case $strCpuVendor = "Intel"
;~ 			disable AmdK8 service/driver
			$intRc = RegWrite("HKLM\TARGET_SYSTEM\ControlSet001\Services\AmdK8", "Start", "REG_DWORD", 4)
			If $intRc Then
				_log("D", "Disabled AmdK8 driver")
			Else
				_log("F", "Error while disabling AmdK8 driver")
			EndIf
	EndSelect

EndFunc   ;==>_workaround_CpuDrivers
